home *** CD-ROM | disk | FTP | other *** search
/ AGA Toolkit '97 / The AGA Toolkit '97.iso / diskutil / menusystems / multitudinous / install.multitudinousv4.0 < prev    next >
Text File  |  1996-09-07  |  4KB  |  172 lines
  1. ;Multitudinous Installer
  2.  
  3. (set one "sys:wbstartup")
  4. (set two "S:")
  5.  
  6. (set #Welcome-Pirate
  7. (cat "\nWelcome to the Multitudinous Installer\n\n"
  8.         "Multitudinous V4.0 is\n"
  9.         "(c) Copyright 1995.\n"
  10.         "Programmed in Blitz II.\n"
  11.         "By K.Winspear.\n\n"
  12.         "See Doc for more info?"
  13. ))
  14.  
  15. (message #Welcome-Pirate)
  16.  
  17. (set vc-dest
  18. (askdir
  19.    (prompt "Please select the Directory where you would like to install"
  20.            " Multitudinous V4.0. ")
  21.    (help @askdir-help)
  22.    (default one)
  23.    )
  24. )
  25.  
  26.    (set one vc-dest)
  27.  
  28. (
  29. (working "Installing Multitudinous V4.0 Program")
  30. (copyfiles
  31.         (prompt "")
  32.         (help @copyfiles-help)
  33.         (source "Multitudinous:Multitudinous")
  34.         (dest one)
  35.         (infos)
  36. )
  37. )
  38.  
  39. (set name
  40. (askdir
  41.    (prompt "Please select the Directory where you would like to install"
  42.            " Multitudinous.Guide ")
  43.    (help @askdir-help)
  44.    (default two)
  45.    )
  46. )
  47.  
  48.    (set two name)
  49.  
  50. (
  51. (working "Installing Multitudinous.Guide")
  52. (copyfiles
  53.         (prompt "")
  54.         (help @copyfiles-help)
  55.         (source "Multitudinous:Multitudinous.Guide")
  56.         (dest name)
  57.         (infos)
  58.         (confirm)
  59. )
  60. )
  61.  
  62.  
  63. (
  64. (working "Installing Multitudinous-Editor Program")
  65. (copyfiles
  66.         (prompt "Copy Multitudinous Editor To:- C:")
  67.         (help @copyfiles-help)
  68.         (source "Multitudinous:c/Multitudinous-Editor")
  69.         (dest "C:")
  70.         (infos)
  71. )
  72. )
  73.  
  74.  
  75.  
  76. (
  77. (working "Installing Multitudinous.Configs")
  78. (copyfiles
  79.         (prompt "Copying Configfiles ")
  80.         (help @copyfiles-help)
  81.         (source "Multitudinous:")
  82.         (dest one)
  83.         (pattern "mconfigs#?")
  84. ;        (confirm)
  85. )
  86. )
  87.  
  88.  
  89. (copyfiles
  90.                 (prompt "Copying/blanker")
  91.                 (help @copyfonts-help)
  92.                 (source "Multitudinous:c/blankette2")
  93.                 (dest "c:")
  94. )
  95.  
  96.  
  97.  
  98. (if (NOT (exists "fonts:topaz/11"))
  99.          (copyfiles
  100.                 (prompt "Copying/Topaz.Font 11")
  101.                 (help @copyfonts-help)
  102.                 (source "Multitudinous:Fonts")
  103.                 (dest "fonts:")
  104.                 (pattern "topaz.#?")
  105.         )
  106. )
  107. (
  108. (working "Installing Topaz.Font")
  109. (copyfiles
  110.         (prompt "Copying Topaz.Font 11")
  111.         (help @copyfiles-help)
  112.         (source "Multitudinous:fonts/")
  113.         (dest "sys:fonts")
  114.         (pattern "topaz")
  115.         (infos)
  116. )
  117. )
  118.  
  119. (if (NOT (exists "fonts:gtbmenu"))
  120.          (copyfiles
  121.                 (prompt "Copying/GTBMENU.Font")
  122.                 (help @copyfonts-help)
  123.                 (source "Multitudinous:Fonts")
  124.                 (dest "fonts:")
  125.                 (pattern "gtbmenu.#?")
  126.         )
  127. )
  128. (
  129. (working "Installing GTBMENU.Font")
  130. (copyfiles
  131.         (prompt "Copying GTBMENU.Font")
  132.         (help @copyfiles-help)
  133.         (source "Multitudinous:fonts/")
  134.         (dest "sys:fonts")
  135.         (pattern "gtbmenu")
  136.         (infos)
  137. )
  138. )
  139.  
  140.  
  141.  
  142. (complete 75)
  143.  
  144. (if (NOT (exists "SYS:C/ppmore"))
  145.         (copyfiles
  146.                 (prompt "Copy PPMore to read Multitudinous.Doc from HD?")
  147.                 (help @copyfiles-help)
  148.                 (source "Multitudinous:C/ppmore")
  149.                 (dest "c:ppmore")
  150.                 (files)
  151.                 (infos)
  152.                 (confirm)
  153.         )
  154. )
  155.  
  156. (complete 80)
  157. (if (NOT (exists "LIBS:commodities.library"))
  158.         (copylib
  159.                 (prompt "Copying/Updating AmigaGUIDE.Library")
  160.                 (help @copylib-help)
  161.                 (source "Multitudinous:libs/commodities.library")
  162.                 (dest "Libs:")
  163.         )
  164. )
  165. (complete 100)
  166.  
  167.  
  168. (set @default-dest vc-dest)
  169.  
  170.  
  171. (exit)
  172.